VERSION 5.00
Begin VB.Form frmChiTietLienKet 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Thong so chi tiet lien ket"
   ClientHeight    =   8385
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6870
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "ChiTietLienKet.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8385
   ScaleWidth      =   6870
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Caption         =   "Voi ban san:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1395
      Index           =   3
      Left            =   60
      TabIndex        =   42
      Top             =   6360
      Width           =   6735
      Begin VB.TextBox txth_ps 
         Height          =   360
         Left            =   2400
         TabIndex        =   18
         Text            =   "txth_ps"
         Top             =   900
         Width           =   855
      End
      Begin VB.TextBox txta_cs 
         Height          =   360
         Left            =   5760
         TabIndex        =   19
         Text            =   "txta_cs"
         Top             =   360
         Width           =   855
      End
      Begin VB.TextBox txtMuy_Fa 
         Height          =   360
         Left            =   5760
         TabIndex        =   20
         Text            =   "txtMuy_Fa"
         Top             =   900
         Width           =   855
      End
      Begin VB.TextBox txth_cos 
         Height          =   360
         Left            =   2400
         TabIndex        =   17
         Text            =   "txth_cos"
         Top             =   360
         Width           =   855
      End
      Begin VB.Label lblBf1 
         Caption         =   "cua san (%):"
         Height          =   285
         Index           =   6
         Left            =   3480
         TabIndex        =   50
         Top             =   1080
         Width           =   2175
      End
      Begin VB.Label lblTw 
         Caption         =   "trong san (cm):"
         Height          =   285
         Index           =   9
         Left            =   120
         TabIndex        =   49
         Top             =   1080
         Width           =   2175
      End
      Begin VB.Label lblBf1 
         Caption         =   "cot thep (cm):"
         Height          =   285
         Index           =   5
         Left            =   3480
         TabIndex        =   48
         Top             =   540
         Width           =   2175
      End
      Begin VB.Label lblTw 
         Caption         =   "phia tren ton san (cm):"
         Height          =   285
         Index           =   8
         Left            =   120
         TabIndex        =   47
         Top             =   540
         Width           =   2175
      End
      Begin VB.Label lblTw 
         Caption         =   "Chieu cao mui ton (cm):"
         Height          =   285
         Index           =   7
         Left            =   120
         TabIndex        =   46
         Top             =   840
         Width           =   2175
      End
      Begin VB.Label lblBf1 
         Caption         =   "Chieu day lop bao ve"
         Height          =   285
         Index           =   4
         Left            =   3480
         TabIndex        =   45
         Top             =   300
         Width           =   2175
      End
      Begin VB.Label lblTf1 
         Caption         =   "Ham luong cot thep"
         Height          =   345
         Index           =   4
         Left            =   3480
         TabIndex        =   44
         Top             =   840
         Width           =   2175
      End
      Begin VB.Label lblTw 
         Caption         =   "Chieu day phan be tong"
         Height          =   285
         Index           =   6
         Left            =   120
         TabIndex        =   43
         Top             =   300
         Width           =   2175
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Voi chot lien ket be tong san:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2055
      Index           =   2
      Left            =   3480
      TabIndex        =   37
      Top             =   4260
      Width           =   3315
      Begin VB.TextBox txtd_cs 
         Height          =   360
         Left            =   2340
         TabIndex        =   14
         Text            =   "txtd_cs"
         Top             =   720
         Width           =   855
      End
      Begin VB.TextBox txtk_sc 
         Height          =   360
         Left            =   2340
         TabIndex        =   15
         Text            =   "txtk_sc"
         Top             =   1140
         Width           =   855
      End
      Begin VB.TextBox txta_0 
         Height          =   360
         Left            =   2340
         TabIndex        =   16
         Text            =   "txta_0"
         Top             =   1560
         Width           =   855
      End
      Begin VB.TextBox txth_cs 
         Height          =   360
         Left            =   2340
         TabIndex        =   13
         Text            =   "txth_cs"
         Top             =   300
         Width           =   855
      End
      Begin VB.Label lblTw 
         Caption         =   "Duong kinh chot (cm):"
         Height          =   285
         Index           =   5
         Left            =   120
         TabIndex        =   41
         Top             =   780
         Width           =   1935
      End
      Begin VB.Label lblBf1 
         Caption         =   "Do cung (kN/cm^2):"
         Height          =   285
         Index           =   3
         Left            =   120
         TabIndex        =   40
         Top             =   1200
         Width           =   1875
      End
      Begin VB.Label lblTf1 
         Caption         =   "Khoang cach (cm):"
         Height          =   345
         Index           =   3
         Left            =   120
         TabIndex        =   39
         Top             =   1620
         Width           =   1875
      End
      Begin VB.Label lblTw 
         Caption         =   "Chieu cao chot (cm):"
         Height          =   285
         Index           =   3
         Left            =   120
         TabIndex        =   38
         Top             =   360
         Width           =   1935
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Voi bu long lien ket:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2055
      Index           =   1
      Left            =   60
      TabIndex        =   32
      Top             =   4260
      Width           =   3375
      Begin VB.TextBox txtA_sb 
         Height          =   360
         Left            =   2400
         TabIndex        =   9
         Text            =   "txtA_sb"
         Top             =   300
         Width           =   855
      End
      Begin VB.TextBox txtd_w 
         Height          =   360
         Left            =   2400
         TabIndex        =   12
         Text            =   "txtd_w"
         Top             =   1560
         Width           =   855
      End
      Begin VB.TextBox txth_n 
         Height          =   360
         Left            =   2400
         TabIndex        =   11
         Text            =   "txth_n"
         Top             =   1140
         Width           =   855
      End
      Begin VB.TextBox txth_h 
         Height          =   360
         Left            =   2400
         TabIndex        =   10
         Text            =   "txth_h"
         Top             =   720
         Width           =   855
      End
      Begin VB.Label lblTw 
         Caption         =   "Dien tich bu long:"
         Height          =   285
         Index           =   4
         Left            =   120
         TabIndex        =   36
         Top             =   360
         Width           =   1875
      End
      Begin VB.Label lblTf1 
         Caption         =   "Duong kinh tam dem:"
         Height          =   345
         Index           =   2
         Left            =   120
         TabIndex        =   35
         Top             =   1620
         Width           =   1875
      End
      Begin VB.Label lblBf1 
         Caption         =   "Chieu day dai oc:"
         Height          =   285
         Index           =   2
         Left            =   120
         TabIndex        =   34
         Top             =   1200
         Width           =   1875
      End
      Begin VB.Label lblTw 
         Caption         =   "Chieu day mu:"
         Height          =   285
         Index           =   2
         Left            =   120
         TabIndex        =   33
         Top             =   780
         Width           =   1875
      End
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "&OK"
      Height          =   435
      Left            =   5580
      TabIndex        =   21
      Top             =   7860
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "Voi suon mut dau dam:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4155
      Index           =   0
      Left            =   60
      TabIndex        =   22
      Top             =   60
      Width           =   6735
      Begin VB.TextBox txte_p1 
         Height          =   360
         Left            =   5760
         TabIndex        =   3
         Text            =   "txte_p1"
         Top             =   1560
         Width           =   855
      End
      Begin VB.TextBox txtp 
         Height          =   360
         Left            =   5760
         TabIndex        =   2
         Text            =   "txtp"
         Top             =   1140
         Width           =   855
      End
      Begin VB.TextBox txta_f 
         Height          =   360
         Left            =   5760
         TabIndex        =   1
         Text            =   "txta_f"
         Top             =   720
         Width           =   855
      End
      Begin VB.TextBox txta_w 
         Height          =   360
         Left            =   5760
         TabIndex        =   0
         Text            =   "txta_w"
         Top             =   300
         Width           =   855
      End
      Begin VB.TextBox txte 
         Height          =   360
         Left            =   5760
         TabIndex        =   4
         Text            =   "txte"
         Top             =   1980
         Width           =   855
      End
      Begin VB.TextBox txtb_p 
         Height          =   360
         Left            =   5760
         TabIndex        =   7
         Text            =   "txtb_p"
         Top             =   3240
         Width           =   855
      End
      Begin VB.TextBox txtp_p 
         Height          =   360
         Left            =   5760
         TabIndex        =   6
         Text            =   "txtp_p"
         Top             =   2820
         Width           =   855
      End
      Begin VB.TextBox txtw 
         Height          =   360
         Left            =   5760
         TabIndex        =   5
         Text            =   "txtw"
         Top             =   2400
         Width           =   855
      End
      Begin VB.TextBox txtt_p 
         Height          =   360
         Left            =   5760
         TabIndex        =   8
         Text            =   "txtt_p"
         Top             =   3660
         Width           =   855
      End
      Begin VB.Label lblTf1 
         Caption         =   "Khoang cach tu trong tam bu long den mep duoi suon (cm):"
         Height          =   345
         Index           =   0
         Left            =   120
         TabIndex        =   31
         Top             =   1620
         Width           =   5595
      End
      Begin VB.Label lblBf1 
         Caption         =   "Khoang cach tu trong tam bu long den mep tren suon (cm):"
         Height          =   345
         Index           =   0
         Left            =   120
         TabIndex        =   30
         Top             =   1200
         Width           =   5595
      End
      Begin VB.Label lblTw 
         Caption         =   "Chieu cao duong han canh (cm):"
         Height          =   285
         Index           =   0
         Left            =   120
         TabIndex        =   29
         Top             =   780
         Width           =   5595
      End
      Begin VB.Label lblHw 
         Caption         =   "Chieu cao duong han bung (cm):"
         Height          =   285
         Index           =   0
         Left            =   120
         TabIndex        =   28
         Top             =   360
         Width           =   5595
      End
      Begin VB.Label lblTf2 
         Caption         =   "Khoang cach tu trong tam bu long den mep ngoai canh cot (cm):"
         Height          =   345
         Index           =   1
         Left            =   120
         TabIndex        =   27
         Top             =   2040
         Width           =   5595
      End
      Begin VB.Label lblTf1 
         Caption         =   "Be rong suon (cm):"
         Height          =   345
         Index           =   1
         Left            =   120
         TabIndex        =   26
         Top             =   3300
         Width           =   5595
      End
      Begin VB.Label lblBf1 
         Caption         =   "Khoang cach giua 2 bu long theo phuong dung (cm):"
         Height          =   285
         Index           =   1
         Left            =   120
         TabIndex        =   25
         Top             =   2880
         Width           =   5595
      End
      Begin VB.Label lblTw 
         Caption         =   "Khoang cach giua 2 bu long theo phuong ngang (cm):"
         Height          =   285
         Index           =   1
         Left            =   120
         TabIndex        =   24
         Top             =   2460
         Width           =   5595
      End
      Begin VB.Label lblTf2 
         Caption         =   "Chieu day suon (cm)"
         Height          =   345
         Index           =   0
         Left            =   120
         TabIndex        =   23
         Top             =   3720
         Width           =   5595
      End
   End
End
Attribute VB_Name = "frmChiTietLienKet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
     Unload Me
End Sub


Private Sub Form_Load()
     'Suon mut dau dam
     txta_w.Text = "0.3"
     txta_f.Text = "0.5"
     txtp.Text = "5.0"
     txte_p1.Text = "5.0"
     txte.Text = "3.0"
     txtw.Text = "8.0"
     txtp_p.Text = "12.0"
     txtb_p.Text = "14.0"
     txtt_p.Text = "1.5"
     'Bu long lien ket
     txtA_sb.Text = "1.57"
     txth_h.Text = "1.0"
     txth_n.Text = "1.3"
     txtd_w.Text = "2.675"
     'Chot lien ket be tong san
     txth_cs.Text = "8.0"
     txtd_cs.Text = "1.0"
     txtk_sc.Text = "1.0"
     txta_0.Text = "10.0"
     'Ban san
     txth_cos.Text = "8.0"
     txth_ps.Text = "5.0"
     txta_cs.Text = "1.5"
     txtMuy_Fa.Text = "0.7"
     
End Sub


Private Sub txta_0_GotFocus()
     SelectTextFromTextBox txta_0
End Sub


Private Sub txta_0_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txta_0_LostFocus()
     CheckValidNumberInputed txta_0
End Sub

Private Sub txta_cs_GotFocus()
     SelectTextFromTextBox txta_cs
End Sub


Private Sub txta_cs_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txta_cs_LostFocus()
     CheckValidNumberInputed txta_cs
End Sub

Private Sub txta_f_GotFocus()
     SelectTextFromTextBox txta_f
End Sub


Private Sub txta_f_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txta_f_LostFocus()
     CheckValidNumberInputed txta_f
End Sub

Private Sub txtA_sb_GotFocus()
     SelectTextFromTextBox txtA_sb
End Sub


Private Sub txtA_sb_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtA_sb_LostFocus()
     CheckValidNumberInputed txtA_sb
End Sub

Private Sub txta_w_GotFocus()
     SelectTextFromTextBox txta_w
End Sub


Private Sub txta_w_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txta_w_LostFocus()
     CheckValidNumberInputed txta_w
End Sub

Private Sub txtb_p_GotFocus()
     SelectTextFromTextBox txtb_p
End Sub


Private Sub txtb_p_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtb_p_LostFocus()
     CheckValidNumberInputed txtb_p
End Sub

Private Sub txtd_cs_GotFocus()
SelectTextFromTextBox txtd_cs
End Sub


Private Sub txtd_cs_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtd_cs_LostFocus()
     CheckValidNumberInputed txtd_cs
End Sub

Private Sub txtd_w_GotFocus()
     SelectTextFromTextBox txtd_w
End Sub


Private Sub txtd_w_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtd_w_LostFocus()
     CheckValidNumberInputed txtd_w
End Sub

Private Sub txte_GotFocus()
     SelectTextFromTextBox txte
End Sub


Private Sub txte_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txte_LostFocus()
     CheckValidNumberInputed txte
End Sub

Private Sub txte_p1_GotFocus()
     SelectTextFromTextBox txte_p1
End Sub


Private Sub txte_p1_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txte_p1_LostFocus()
     CheckValidNumberInputed txte_p1
End Sub

Private Sub txth_cos_GotFocus()
     SelectTextFromTextBox txth_cos
End Sub


Private Sub txth_cos_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txth_cos_LostFocus()
     CheckValidNumberInputed txth_cos
End Sub

Private Sub txth_cs_GotFocus()
     SelectTextFromTextBox txth_cs
End Sub


Private Sub txth_cs_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txth_cs_LostFocus()
     CheckValidNumberInputed txth_cs
End Sub

Private Sub txth_h_GotFocus()
     SelectTextFromTextBox txth_h
End Sub


Private Sub txth_h_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txth_h_LostFocus()
     CheckValidNumberInputed txth_h
End Sub

Private Sub txth_n_GotFocus()
     SelectTextFromTextBox txth_n
End Sub


Private Sub txth_n_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txth_n_LostFocus()
     CheckValidNumberInputed txth_n
End Sub

Private Sub txth_ps_GotFocus()
     SelectTextFromTextBox txth_ps
End Sub


Private Sub txth_ps_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txth_ps_LostFocus()
     CheckValidNumberInputed txth_ps
End Sub

Private Sub txtk_sc_GotFocus()
     SelectTextFromTextBox txtk_sc
End Sub


Private Sub txtk_sc_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtk_sc_LostFocus()
     CheckValidNumberInputed txtk_sc
End Sub

Private Sub txtMuy_Fa_GotFocus()
     SelectTextFromTextBox txtMuy_Fa
End Sub


Private Sub txtMuy_Fa_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtMuy_Fa_LostFocus()
     CheckValidNumberInputed txtMuy_Fa
End Sub

Private Sub txtp_GotFocus()
     SelectTextFromTextBox txtp
End Sub


Private Sub txtp_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtp_LostFocus()
     CheckValidNumberInputed txtp
End Sub

Private Sub txtp_p_GotFocus()
     SelectTextFromTextBox txtp_p
End Sub


Private Sub txtp_p_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtp_p_LostFocus()
     CheckValidNumberInputed txtp_p
End Sub

Private Sub txtt_p_GotFocus()
     SelectTextFromTextBox txtt_p
End Sub


Private Sub txtt_p_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtt_p_LostFocus()
     CheckValidNumberInputed txtt_p
End Sub

Private Sub txtw_GotFocus()
     SelectTextFromTextBox txtw
End Sub


Private Sub txtw_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtw_LostFocus()
     CheckValidNumberInputed txtw
End Sub


